home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Languguage OS 2
/
Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO
/
a_utils
/
perl
/
prlbkxmp.lha
/
ch2
/
rebuke3
< prev
next >
Wrap
Text File
|
1991-01-07
|
224b
|
10 lines
#!/usr/bin/perl
&rebuke('daughter', 'danglesocket');
&rebuke('son', 'flea-infested, dunghill-rat-licking twerp');
sub rebuke {
local($beastie,$epithet) = @_;
print "O my $beastie, you have become a $epithet!\n";
}